TablesGetString Subroutine

private subroutine TablesGetString(valueIn, tables, id, keyIn, keyOut, valueOut)

returns a string from column defined by keyOut corresponding to valueIn contained in column defined by keyIn. Table is identified by its id. Arguments: valueIn input value tables collection of tables to search in id id of the table to search in keyIn defines header of the column of the input value keyOut defines header of the column of the output value

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: valueIn
type(TableCollection), intent(in) :: tables
character(len=*), intent(in) :: id
character(len=*), intent(in) :: keyIn
character(len=*), intent(in) :: keyOut
character(len=*), intent(out) :: valueOut

Source Code

SUBROUTINE TablesGetString &
!
( valueIn, tables, id, keyIn, keyOut, valueOut)

IMPLICIT NONE

! Function arguments
! Scalar arguments with intent(in):
REAL (KIND = float),  INTENT (IN) :: valueIn
CHARACTER (LEN = *),  INTENT (IN) :: id
CHARACTER (LEN = *),  INTENT (IN) :: keyIn
CHARACTER (LEN = *),  INTENT (IN) :: keyOut

! Type defined arguments with intent (in):
TYPE (TableCollection), INTENT (IN) :: tables

! Scalar arguments with intent(in):
CHARACTER (LEN = *), INTENT (OUT) :: valueOut

!------------end of declaration------------------------------------------------



 CALL TableGetString ( valueIn, tables % elem ( TableSyncById (tables, id) ), &
                       keyIn, keyOut, valueOut)


END SUBROUTINE TablesGetString